unit BankLinkPoluch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dRoot, DB, StdCtrls, Buttons, ExtCtrls, ComCtrls,
  IBCustomDataSet, IBQuery, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl,
  dxDBGrid, dxCntner, IBSQL, cxStyles, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin,
  dxSkinSilver, dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,
  dxSkinValentine, dxSkinXmas2008Blue, dxSkinscxPCPainter, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid;

type
  TFormBankLinkPoluch = class(TdlgRoot)
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1FIO: TcxGridDBColumn;
    cxGrid1DBTableView1PDATEBIRTH: TcxGridDBColumn;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormBankLinkPoluch: TFormBankLinkPoluch;

implementation

uses DBinv, BankExchange;

{$R *.dfm}

procedure TFormBankLinkPoluch.Edit1Change(Sender: TObject);
begin
  inherited;
  self.cxGrid1DBTableView1.DataController.Controller.IncSearchingText:=
      self.Edit1.Text;
  self.cxGrid1DBTableView1.DataController.Controller.IsIncSearching;

end;


procedure TFormBankLinkPoluch.Edit1Enter(Sender: TObject);
begin
  inherited;
  ActivateKeyboardLayout(LoadKeyboardLayout('00000419', 0), 0);
end;

end.
